home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / assess3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  8.8 KB  |  242 lines
  1. VERSION 2.00
  2. Begin Form assess3 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Form4"
  5.    ClientHeight    =   5010
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   7650
  9.    ForeColor       =   &H000000C0&
  10.    Height          =   5415
  11.    Left            =   960
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form4"
  14.    ScaleHeight     =   5010
  15.    ScaleWidth      =   7650
  16.    Tag             =   "physical"
  17.    Top             =   1080
  18.    Width           =   7770
  19.    Begin PictureBox Picture3 
  20.       AutoRedraw      =   -1  'True
  21.       BorderStyle     =   0  'None
  22.       Height          =   615
  23.       Left            =   600
  24.       ScaleHeight     =   615
  25.       ScaleWidth      =   2175
  26.       TabIndex        =   7
  27.       Top             =   4200
  28.       Visible         =   0   'False
  29.       Width           =   2175
  30.    End
  31.    Begin PictureBox Picture2 
  32.       BorderStyle     =   0  'None
  33.       Height          =   2655
  34.       Left            =   0
  35.       Picture         =   ASSESS3.FRX:0000
  36.       ScaleHeight     =   2655
  37.       ScaleWidth      =   7215
  38.       TabIndex        =   4
  39.       Top             =   600
  40.       Visible         =   0   'False
  41.       Width           =   7215
  42.    End
  43.    Begin PictureBox Picture1 
  44.       BorderStyle     =   0  'None
  45.       DrawWidth       =   2
  46.       Height          =   3735
  47.       Left            =   480
  48.       ScaleHeight     =   3735
  49.       ScaleWidth      =   6255
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   6255
  53.       Begin CheckBox Check1 
  54.          Caption         =   "   O=Other"
  55.          FontBold        =   -1  'True
  56.          FontItalic      =   0   'False
  57.          FontName        =   "MS Sans Serif"
  58.          FontSize        =   12
  59.          FontStrikethru  =   0   'False
  60.          FontUnderline   =   0   'False
  61.          Height          =   375
  62.          Left            =   1920
  63.          TabIndex        =   6
  64.          Top             =   3000
  65.          Width           =   2415
  66.       End
  67.       Begin AniPushButton AniButton3 
  68.          BackColor       =   &H00FFFFFF&
  69.          Cycle           =   2  '2-state 1/2 & 1/2
  70.          Height          =   480
  71.          Index           =   0
  72.          Left            =   3600
  73.          PictDrawMode    =   1  'Autosize control
  74.          Picture         =   ASSESS3.FRX:4B43A
  75.          TabIndex        =   5
  76.          Top             =   120
  77.          Width           =   480
  78.       End
  79.       Begin AniPushButton AniButton2 
  80.          BackColor       =   &H00FFFFFF&
  81.          Caption         =   " "
  82.          Height          =   480
  83.          Left            =   3000
  84.          Picture         =   ASSESS3.FRX:4BA1C
  85.          Speed           =   162
  86.          TabIndex        =   3
  87.          TextPosition    =   2  'Left
  88.          Top             =   120
  89.          Width           =   465
  90.       End
  91.       Begin AniPushButton AniButton1 
  92.          BackColor       =   &H00FFFFFF&
  93.          Caption         =   "Next Page"
  94.          Height          =   615
  95.          Index           =   0
  96.          Left            =   4320
  97.          Picture         =   ASSESS3.FRX:4BFFE
  98.          Speed           =   162
  99.          TabIndex        =   2
  100.          TextPosition    =   2  'Left
  101.          Top             =   0
  102.          Width           =   1455
  103.       End
  104.       Begin AniPushButton AniButton1 
  105.          BackColor       =   &H00FFFFFF&
  106.          Caption         =   "Back Page"
  107.          Height          =   615
  108.          Index           =   1
  109.          Left            =   0
  110.          Picture         =   ASSESS3.FRX:4CEAA
  111.          Speed           =   162
  112.          TabIndex        =   1
  113.          TextPosition    =   1  'Right
  114.          Top             =   0
  115.          Width           =   1455
  116.       End
  117.    End
  118. Dim drawok, locked As Integer
  119. Sub AniButton1_Click (Index As Integer)
  120. If smartform(5) Then
  121.         Select Case Index
  122.         Case 1
  123.         
  124.         medhist.Show
  125.         assess3.Hide
  126.         Case 0
  127.         MDIMForm.Show
  128.         MDIChild1C.Move 0, 0, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  129.         MDIChild1B.Move 0, 360, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  130.         MDIChild1A.Move 0, 720, MDIMForm.ScaleWidth, MDIMForm.ScaleHeight
  131.         
  132.         assess3.Hide
  133.         End Select
  134. formcheck "Identifying Marks"
  135. End If
  136. End Sub
  137. Sub AniButton2_Click ()
  138. If smartform(5) Then
  139. menumode assess3
  140. formcheck "Identifying Marks"
  141. End If
  142. End Sub
  143. Sub AniButton3_Click (Index As Integer)
  144. Select Case anibutton3(0).Value
  145. Case 1
  146. picloc = 0    ' for smartform
  147. locked = 0
  148. msg$ = "      Clear the Drawing?"
  149. x% = MsgBox(msg$, 4, "IDENTIFYING MARKS")
  150.         If x% = 6 Then
  151.             screen.MousePointer = 11
  152.             Picture1.Picture = Picture2.Picture
  153.             msg$ = "Indicate Location"
  154.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  155.             Picture1.CurrentY = Picture1.ScaleHeight - 13 * (TextHeight(msg$))
  156.             Picture1.Print msg$
  157.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  158.             Picture1.Print "S=Scars"
  159.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  160.             Picture1.Print "B=Bruises"
  161.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  162.             Picture1.Print "R=Rashes"
  163.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  164.             '******************************************************
  165.             check1.Visible = -1
  166.             screen.MousePointer = 0
  167.            
  168.             
  169.         End If
  170.     Case 2
  171.     picloc = -1     ' for smartform
  172.     locked = -1
  173.     check1.Visible = 0
  174.     msg$ = "Indicate Location"
  175.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  176.     Picture1.CurrentY = Picture1.ScaleHeight - 13 * (TextHeight(msg$))
  177.     Picture1.Print msg$
  178.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  179.     Picture1.Print "S=Scars"
  180.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  181.     Picture1.Print "B=Bruises"
  182.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  183.     Picture1.Print "R=Rashes"
  184.     y = Picture1.CurrentY
  185.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  186.     Picture1.Line (Picture1.CurrentX, Picture1.CurrentY)-Step(TextWidth("Indicate Location") * 1.1, TextHeight(msg$) * 1.3), QBColor(15), BF
  187.     Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  188.     Picture1.CurrentY = y
  189.     Picture1.Print LTrim$(check1.Caption)
  190.     screen.MousePointer = 11
  191.     bounce2 assess3.Picture1, assess3.Picture3
  192.     screen.MousePointer = 0
  193.     Picture1.Picture = Picture3.Image
  194. End Select
  195. End Sub
  196. Sub Check1_Click ()
  197. If check1.Value Then
  198. BEditform.Label1.Tag = " Enter Other Injuries And Marks"
  199. BEditform.Command2.Tag = " Re-Enter Other Marks"
  200. BEditform.Show 1
  201. End If
  202. End Sub
  203. Sub Form_Load ()
  204. Picture1.ForeColor = &H0&
  205. Picture1.FontSize = 12
  206. assess3.Move 0, 0, screen.Width, screen.Height
  207. Picture1.Move 0, 0, assess3.ScaleWidth, assess3.ScaleHeight
  208. Picture2.Move 0, 0, assess3.ScaleWidth, assess3.ScaleHeight
  209. Picture3.Move 0, 0, assess3.ScaleWidth, assess3.ScaleHeight
  210. anibutton1(0).Move Picture1.Width - anibutton1(0).Width * 1.1, Picture1.Height - anibutton1(0).Height * 1.1
  211. anibutton1(1).Move 0, Picture1.Height - anibutton1(0).Height * 1.1
  212. anibutton2.Move (Picture1.Width - anibutton2.Width) / 2, Picture1.Height - anibutton2.Height * 1.3
  213. anibutton3(0).Move (anibutton2.Width * 1.3 + anibutton2.Left), Picture1.Height - anibutton2.Height * 1.3
  214. assess3.Picture1.Picture = assess3.Picture2.Picture
  215.             Picture1.AutoRedraw = -1
  216.             msg$ = "Indicate Location"
  217.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  218.             Picture1.CurrentY = Picture1.ScaleHeight - 13 * (TextHeight(msg$))
  219.             Picture1.Print msg$
  220.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  221.             Picture1.Print "S=Scars"
  222.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  223.             Picture1.Print "B=Bruises"
  224.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  225.             Picture1.Print "R=Rashes"
  226.             Picture1.CurrentX = (Picture1.ScaleWidth - TextWidth(msg$)) / 2
  227.             Picture1.AutoRedraw = 0
  228.             check1.Move Picture1.CurrentX, Picture1.CurrentY
  229.             Picture1.AutoRedraw = 0  '*****
  230. End Sub
  231. Sub Picture1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  232. Picture1.CurrentX = x
  233. Picture1.CurrentY = y
  234. drawok = -1
  235. End Sub
  236. Sub Picture1_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
  237. If drawok And Not locked Then Picture1.Line -(x, y)
  238. End Sub
  239. Sub Picture1_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
  240. drawok = 0
  241. End Sub
  242.